home *** CD-ROM | disk | FTP | other *** search
/ Apple Reference & Presentation Library 1993 Spring / ARPL-Spring-93-Partner-Edition.iso / Applications / Graphics / Aldus IntelliDraw / IntelliDraw™ / IntelliDraw™.rsrc / PREC_103 < prev    next >
Encoding:
Text File  |  1992-06-19  |  10.1 KB  |  114 lines
  1. %%BeginProcSet: BeachHead 2 0
  2. % BeachHead - v2 Copyright 1991, 1992 Silicon Beach Software, inc.
  3. userdict/BeachHead known userdict begin/BeachHead 140 dict def BeachHead end begin/ta exch def
  4. /BeachHead_version 2 def/isWinPS false def/c 75 string def/sa 75 string def/oldmatrix 6 array def/newmatrix 6 array def/a{bind def}bind def/b{exch def}a
  5. /_doTexturePat false def/nulld{counttomark{null def}repeat pop}a mark/l/m/o/q/r/u/v/w/x/y/z/A
  6. /B/D/E/F/G/H/I/J/K/M/N/O/P/Q/R/S/T/V/W/X/Y/ba/ca/da/ea/fa/ga/ha/ia/ja/ka ta not{/la/ma}if/_strtxtmatrix nulld
  7. /ra 256 array def ra dup dup 0/Times-Roman findfont/Encoding get 0 128 getinterval putinterval
  8. 39/quotesingle put 96/grave put/Adieresis/Aring/Ccedilla/Eacute/Ntilde/Odieresis
  9. /Udieresis/aacute/agrave/acircumflex/adieresis/atilde/aring/ccedilla/eacute/egrave
  10. /ecircumflex/edieresis/iacute/igrave/icircumflex/idieresis/ntilde/oacute/ograve
  11. /ocircumflex/odieresis/otilde/uacute/ugrave/ucircumflex/udieresis/dagger/degree/cent
  12. /sterling/section/bullet/paragraph/germandbls/registered/copyright/trademark/acute
  13. /dieresis/notequal/AE/Oslash/infinity/plusminus/lessequal/greaterequal/yen/mu/partialdiff
  14. /summation/product/pi/integral/ordfeminine/ordmasculine/Omega/ae/oslash/questiondown
  15. /exclamdown/logicalnot/radical/florin/approxequal/Delta/guillemotleft/guillemotright
  16. /ellipsis/blank/Agrave/Atilde/Otilde/OE/oe/endash/emdash/quotedblleft/quotedblright
  17. /quoteleft/quoteright/divide/lozenge/ydieresis/Ydieresis/fraction/currency/guilsinglleft
  18. /guilsinglright/fi/fl/daggerdbl/periodcentered/quotesinglbase/quotedblbase/perthousand
  19. /Acircumflex/Ecircumflex/Aacute/Edieresis/Egrave/Iacute/Icircumflex/Idieresis/Igrave
  20. /Oacute/Ocircumflex/apple/Ograve/Uacute/Ucircumflex/Ugrave/dotlessi/circumflex/tilde
  21. /macron/breve/dotaccent/ring/cedilla/hungarumlaut/ogonek/caron ra 128 128 getinterval astore pop
  22. /va 256 array def ra va copy pop va 14{dup}repeat 161/ring put 178/Scaron put 182/eth put
  23. 184/Thorn put 185/thorn put 195/scaron put 198/Eth put 222/hyphen put 223/twosuperior put
  24. 225/threesuperior put 240/onequarter put 249/onehalf put 250/periodcentered put 253/multiply put
  25. 254/Yacute put version cvr 51 ge{va 245/onesuperior put va 251/threequarters put va 255/yacute put}if
  26. /d{0 1 74{c exch 0 put}for dup c cvs pop c}a/qa{0 1 74{sa exch 0 put}for dup sa cvs pop sa 74 1 put}a
  27. /e{d 74 2 put}a/f{d 74 3 put}a/g{d 73 1 put}a/h{d 72 1 put}a/i{d 71 1 put}a/j{1 currentrgbcolor 1 index eq 3 1 roll eq and{currentgray sub}if setgray}a
  28. /k{/FontInfo 1 dict def FontInfo/UnderlinePosition -100 l/FontInfo known{l/FontInfo
  29. get/UnderlinePosition known{pop l/FontInfo get/UnderlinePosition get}if}if put/m 1 string def
  30. /FontBBox[0 0 1 1]def/FontType 3 def/Encoding l/Encoding get def/FontName c c length string copy def}a
  31. /n{/o 14 dict def o begin/l b k/_isSBShadowFont l/_isSBShadowFont known{l/_isSBShadowFont get}
  32. {false}ifelse def/BuildChar{exch begin m 0 3 -1 roll put l setfont m stringwidth setcharwidth
  33. 0 0 moveto m show end}def}a/p{/o 17 dict def o begin/q b/r b/l b/FontMatrix[1 0 0 1 0 0]def k}a/s{exch begin m 0 3 -1 roll put
  34. l setfont m stringwidth FontMatrix 0 get dup 20 le{pop 1 index 0 ne{exch q add exch}if
  35. }{40 le{1 index 0 ne{exch q 2 div add exch}if}if}ifelse setcharwidth 0 0 moveto gsave}a
  36. /t{dup length 1 add dict/o b dup{1 index/FID ne 2 index/UniqueID ne and{o 3 1 roll put}
  37. {pop pop}ifelse}forall o begin/PaintType 2 def/StrokeWidth 1 0 FontMatrix dtransform dup
  38. mul exch dup mul add sqrt .012 exch div def end/_ o definefont}a/findbeachheadfont{dup
  39. findfont/Encoding get dup 161 get exch 162 get/cent eq exch/exclamdown eq and{userdict
  40. /BeachHead get begin qa FontDirectory sa known{pop sa findfont}{findfont dup length 1 add dict
  41. /o exch def{1 index/FID ne 2 index/UniqueID ne and{o 3 1 roll put}{pop pop}ifelse}forall
  42. /FontName sa sa length string copy def o/Encoding isWinPS{va}{ra}ifelse put sa o definefont}ifelse end}
  43. {findfont}ifelse}a/findoutlinefont{userdict/BeachHead get begin e FontDirectory c known{pop c findfont}{
  44. findbeachheadfont t .02 p/_isSBShadowFont false def/BuildChar{userdict/BeachHead get begin 
  45. s j m show grestore gsave r setfont m show grestore end end}def end c o definefont}ifelse end}a
  46. /findshadowfont{userdict/BeachHead get begin f FontDirectory c known{pop c findfont}{findbeachheadfont
  47. t .05 p/_isSBShadowFont true def/BuildChar{userdict/BeachHead get begin s q dup neg rmoveto
  48. m show grestore gsave j m show grestore gsave r setfont m show grestore end end}def end
  49. c o definefont}ifelse end}a/addheavy{userdict/BeachHead get begin dup/FontName known{dup/FontName get
  50. h FontDirectory c known{pop pop c findfont}{pop n/FontMatrix[1 0 0 1 0 0]def/BuildChar{exch
  51. begin m 0 3 -1 roll put l setfont m stringwidth exch .02 add exch setcharwidth 0 0
  52. moveto m show .04 0 moveto m show end}def end c o definefont}ifelse}if end}a/addoblique{userdict/BeachHead
  53. get begin dup/FontName known{dup/FontName get g FontDirectory c known{pop pop c findfont}{pop n/FontMatrix
  54. [1 0 .17 1 0 0]def end c o definefont}ifelse}if end}a/adduline{userdict/BeachHead get begin 
  55. dup/FontName known{dup/FontName get i FontDirectory c known{pop pop c findfont}{pop n
  56. /FontMatrix[1 0 0 1 0 0]def/BuildChar{exch begin m 0 3 -1 roll put l setfont m stringwidth 
  57. setcharwidth .05 setlinewidth 0 setlinecap FontInfo/UnderlinePosition get 1000 div dup -.07
  58. exch moveto .07 exch m stringwidth 3 -1 roll add 3 1 roll add exch lineto stroke 0 0 moveto
  59. m show end}def end c o definefont}ifelse}if end}a
  60. /EPSBegin{save userdict/BeachHead get begin/la b count/ma b userdict/showpage{}put end
  61. 0 setgray 0 setlinecap 1 setlinewidth 0 setlinejoin 10 setmiterlimit [] 0 setdash newpath}a
  62. /EPSEnd{userdict/BeachHead get begin count ma sub dup 0 gt{{pop}repeat}{pop}ifelse la end restore}a
  63. /cimage{userdict/BeachHead get begin{{readstring}}{{readhexstring}}ifelse/u b/colorimage where
  64. {pop 4 index dup string/v b dup string/w b dup string/x b dup string/y b string/z b
  65. {currentfile v u pop}{currentfile w u pop}{currentfile x u pop}{currentfile y u pop
  66. currentfile z u pop pop}5 -1 roll{true 4 A}{true 4/colorimage load exec}ifelse}{4 index
  67. dup string/z b 4 mul string/B b{currentfile B u pop pop currentfile z u pop}
  68. exch{transimage}{/image load exec}ifelse}ifelse end}a/C{D{gsave E F 3 index idtransform translate
  69. G 1 4 index 4 index{H}/image load exec grestore/I 0 def/G 0 def/D false def}if}a
  70. /transimage{userdict/BeachHead get begin 2 index 8 ne{/image load exec}{4 index cvi string
  71. /H b/J 0 string def/K 0 def/D false def/I 0 def/G 0 def 0 1 5 index 1 sub{/F b 0 1 6 index 1 sub
  72. {K J length ge{1 index dup type/stringtype ne{exec}if/J b/K 0 def}if J K get/K K 1 add def
  73. dup 255 eq{pop pop C}{H I 3 -1 roll put/I I 1 add def/G G 1 add def D not{/E b/G 1 def
  74. /D true def}{pop}ifelse}ifelse}for C}for 5{pop}repeat}ifelse end}a/L{D{gsave E F 8 index
  75. idtransform translate I 1 8 9 index{M}{N}{O}{P}true 4/colorimage load exec grestore/I 0 def
  76. /D false def}if}a/A{9 index cvi dup string/M b dup string/N b dup string/O b string/P b
  77. /Q 0 string def/K 0 def/D false def/I 0 def/G 0 def 0 1 10 index 1 sub{/F b 0 1 11 index 1 sub
  78. {K Q length ge{6 index exec/R b 5 index exec/S b 4 index exec/T b 3 index exec/Q b/K 0 def
  79. }if R K get S K get T K get Q K get/K K 1 add def dup 0 eq 2 index 0 eq and 3 index 0 eq and
  80. 4 index 0 eq and{5{pop}repeat L}{M I 6 -1 roll put N I 5 -1 roll put O I 4 -1 roll put
  81. P I 3 -1 roll put/I I 1 add def D not{/E b/D true def}{pop}ifelse}ifelse}for L}for 10{pop}repeat}a
  82. /bps 8 string def/bpm[8 0 0 8 0 0]def/bpp{bps}def/overlaybackpat{userdict/BeachHead get begin gsave
  83. setrgbcolor bps copy pop dup 0 get 8 div floor cvi 8 mul 1 index 2 get 8 div floor cvi 8 mul 2 index
  84. 1 get 8 div floor cvi 8 mul 8 4 index 3 get 8 div floor cvi 8 mul{2 index 8 3 index{1 index gsave translate
  85. 8 8 scale 8 8 false bpm/bpp load imagemask grestore}for pop}for pop pop pop grestore end}a
  86. /U{userdict/BeachHead get begin/V b/W b countdictstack save V 2 add 2 roll count V sub /X b
  87. /W load end{exec}stopped userdict/BeachHead get begin/Y b count X sub{pop}repeat Y 3 1 roll
  88. restore countdictstack exch sub{end}repeat end}a/Z( )def/aa{moveto{ba setfont Z end gsave
  89. 0 setgray stringwidth grestore userdict/BeachHead get begin rmoveto/ca load null ne{/da da
  90. 1 add def da ea length le{fa ea da get ca}if}{ax ay rmoveto fa ga eq{cx cy rmoveto}if}ifelse}stopped
  91. currentdict userdict/BeachHead get ne{userdict/BeachHead get begin}if}a
  92. /filltextpath{userdict/BeachHead get begin/ea b dup type dup/integertype eq exch/realtype eq or
  93. {/ay b/ax b/ga b/cy b/cx b/ca null def}{/ca b}ifelse/ha b/ia b ia{currentfont/_isSBShadowFont get
  94. {gsave 0 setgray/ca load null ne{/ca load ea kshow}{cx cy ga ax ay ea awidthshow}ifelse
  95. grestore}if}if gsave currentfont ia{begin r FontMatrix makefont l FontMatrix makefont end
  96. }{null exch}ifelse/ja b/ka b/ba currentfont def _doTexturePat{systemdict/makepattern known}
  97. {false}ifelse{matrix currentmatrix _strtxtmatrix null ne{_strtxtmatrix setmatrix}if 1 -1 scale
  98. txTrnsX txTrnsY translate settexturepat setmatrix/da 0 def ea{/fa b Z 0 fa put ja setfont currentpoint
  99. Z show aa{exit}if}forall}{10 setlinewidth/da 0 def currentpoint newpath 0 dup dup dup moveto lineto
  100. closepath moveto ea{/fa b Z 0 fa put currentpoint ja setfont count 1 add dup 1 roll Z true{charpath}stopped
  101. count count -1 roll sub{pop}repeat currentpoint{ha}0 U pop newpath 0 dup dup dup moveto
  102. lineto closepath moveto aa{exit}if}forall}ifelse grestore ka null ne{gsave 0 setgray/da
  103. 0 def ea{/fa b Z 0 fa put ka setfont currentpoint Z show aa{exit}if}forall grestore}if
  104. /_doTexturePat false def/_strtxtmatrix null def end}a/na[256{0}repeat]def mark 161 176
  105. 173 185 176 165 177 177 178 163 179 179 181 109 182 182 183 229 184 213 185 112 186 242
  106. 189 87 195 214 197 187 198 68 214 184 215 224 240 240 counttomark 2 div cvi{na 3 1 roll put}repeat
  107. /krnshow{dup type dup/integertype ne exch/realtype ne and{12}if/Symbol findfont exch
  108. scalefont/oa exch def/ua currentfont def/pa 0 def exch{dup na exch get dup 0 eq isWinPS or{pop Z 0
  109. 3 -1 roll put currentpoint Z userdict begin show end moveto}{oa setfont Z 0 3 -1 roll put currentpoint Z show
  110. moveto ua setfont pop}ifelse dup pa get/pa pa 1 add def 1 index pa get/pa pa 1 add def rmoveto
  111. }forall pop}a/setcmykcolor where{pop/bhsetcmykcolor/setcmykcolor load def}{/bhsetcmykcolor
  112. {4 1 roll 3{3 index add neg 1 add dup 0 lt{pop 0}if 3 1 roll}repeat setrgbcolor pop}a}ifelse end
  113. %%EndProcSet